(ispell-word): Use use-region-p.

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index d6a5da48d35340013fde60b96f361190578ce4d7..ff5cb5ec0c935c9d6060c5cf8ccc5bc5ce3059c6 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1568,8 +1568,7 @@ nil           word is correct or spelling is accepted.
 quit          spell session exited."
   (interactive (list ispell-following-word ispell-quietly current-prefix-arg t))
   (cond
-   ((and region transient-mark-mode mark-active
-        (not (eq (region-beginning) (region-end))))
+   ((and region (use-region-p))
     (ispell-region (region-beginning) (region-end)))
    (continue (ispell-continue))
    (t